home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue55 / construc / LOGIN.DPR < prev    next >
Text File  |  2000-02-07  |  710b  |  30 lines
  1. program login;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   DrBobCGI, Base64;
  5.  
  6. begin
  7.   if (Authorization = '') then
  8.   begin
  9.     writeln('HTTP/1.0 401 Unauthorized');
  10.     writeln('content-type: text/html');
  11.     writeln('WWW-Authenticate: Basic realm="/DrBob"')
  12.   end
  13.   else
  14.   begin
  15.     writeln('HTTP/1.0 200 OK');
  16.     writeln('content-type: text/html');
  17.     writeln;
  18.     writeln('<HTML>');
  19.     writeln('<BODY>');
  20.     writeln('['+Authorization+']');
  21.     if Pos('Basic ',Authorization) = 1 then Delete(Authorization,1,6);
  22.     writeln('<P>');
  23.     writeln('['+Authorization+']');
  24.     writeln('<P>');
  25.     writeln('['+UnBase64(Authorization)+']');
  26.     writeln('</BODY>');
  27.     writeln('</HTML>')
  28.   end
  29. end. 
  30.